﻿Imports APILocawebGatewayUI.VISA

Partial Public Class VisaRetorno
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim visaDados = New GerenciadorVISA(HttpContext.Current)

        If (visaDados.EstaAprovada) Then

            Response.Write(visaDados.CodigoRespostaTransacao)
            Response.Write(visaDados.CodigoTransacao)
            Response.Write(visaDados.RespostaTransacao)
        End If

        'Utilizado para exibir informações na TELA para o usuário
        If (visaDados.RealizarCaptura()) Then

            'transação realizada com sucesso.

        Else

            'Falha na transação
        End If
    End Sub

End Class